home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / comtoi.pqs / comtoi.pas
Pascal/Delphi Source File  |  1985-06-03  |  4KB  |  132 lines
  1. program ComToInL;
  2.  
  3. { Program ComToInL by Michael Quinlan   12/17/84 } 
  4.  
  5. { Problem: 
  6.     Turbo Pascal is great BUT it still has some problem areas. One of these
  7.     is a bug having to do with EXTERNAL procedures -- if youcompile to disk, 
  8.     EXTERNAL procedures longer than 128 bytes don't work. You can get around 
  9.     this bug by compiling to memory first; unfortunately when you use 
  10.     overlays you cannot compile to memory so you are stuck. }
  11.  
  12. { The fix: 
  13.     Borland doesn't seem to be forthcoming with a patch or new release to fix 
  14.     this bug, so I have written this program to convert .COM files to INLINE 
  15.     code that you can include in your source program. This will greatly 
  16.     increase the compile time of your programs, but at least you won't have
  17.     completly wasted all that time writing and debugging your assembler 
  18.     program. } 
  19.  
  20. { The environment: 
  21.     I have used this on an IBM PC with Version 2.00B of Turbo Pascal for the
  22.     IBM PC I assume it will work on other MSDOS machines. I know nothing 
  23.     about CPM-80 or CPM-86 so I don't know what problems will be encountered
  24.     in those environments. 
  25.     This program has NOT been completely tested. I rarely need EXTERNAL 
  26.     routines when using Turbo Pascal and have only used this conversion 
  27.     program a couple of times. }
  28.  
  29. { Usage: 
  30.     First, create and debug your assembler language program. The assembler 
  31.       language program must be converted to a .COM file using EXE2BIN. 
  32.     Second, run ComToInL to convert the .COM file to a .PAS file.
  33.     Third, include the .PAS file created above into the source code of your
  34.       Turbo Pascal program. Example: 
  35.  
  36.         Overlay Procedure A; 
  37.        begin 
  38.         (*$IA.PAS*)  (* Include INLINE code generated from .COM file *) 
  39.         end; 
  40.         Overlay Procedure B; 
  41.         begin 
  42.         (*$IB.PAS*)  (* Include INLINE code generated from .COM file *) 
  43.         end; 
  44. } 
  45.  
  46. const 
  47.   MaxLineLength = 126; 
  48.  
  49. type 
  50.   Lstr = String[255]; 
  51.  
  52. var 
  53.   InFile      : File of Byte;
  54.   OutFile     : Text;
  55.   CharsOnLine : Integer; 
  56.   InFileName  : Lstr; 
  57.   OutFileName : Lstr; 
  58.   B           : Byte; 
  59.   C           : Char; 
  60.   D1, D2      : Integer; 
  61.  
  62. const 
  63.   HexTable : Array[0..15] of Char = '0123456789ABCDEF';
  64.  
  65. procedure StrToUpper(var S : Lstr); 
  66. var 
  67.   i : integer;
  68. begin 
  69.   for i := 1 to length(S) do 
  70.     S[i] := UpCase(S[i]) 
  71. end; 
  72.  
  73. procedure GetFileName(var FileName : Lstr; Ext : Lstr); 
  74. begin 
  75.   Readln(FileName); 
  76.   StrToUpper(FileName);
  77.   if pos('.', FileName) = 0 then FileName := FileName + Ext 
  78. end; 
  79.  
  80. procedure WriteLnOut; 
  81.   { used to end line on screen and file } 
  82. begin 
  83.   WriteLn(OutFile);
  84.   WriteLn; 
  85.   CharsOnLine := 0 
  86. end; 
  87.  
  88. procedure WriteOut(S : Lstr); 
  89.   { used to write data to screen and file at the same time }
  90. begin 
  91.   if (CharsOnLine + Length(S)) >= MaxLineLength then 
  92.     WriteLnOut; 
  93.   Write(OutFile, S); 
  94.   Write(S); 
  95.   CharsOnLine := CharsOnLine + Length(S) 
  96. end; 
  97.  
  98. begin
  99.   Write('Input file name: '); 
  100.   GetFileName(InFileName, '.COM'); 
  101.  
  102.   Write('Output file name: '); 
  103.   GetFileName(OutFileName, '.PAS'); 
  104.  
  105.   Assign(InFile, InFileName); 
  106.   Reset(InFile); 
  107.  
  108.   Assign(OutFile, OutFileName); 
  109.   Rewrite(OutFile); 
  110.  
  111.   CharsOnLine := 0;
  112.  
  113.   WriteOut('{ INLINE Code Generated from ' + OutFileName + ' }'); 
  114.   WriteLnOut; 
  115.   WriteOut('INLINE('); 
  116.  
  117.   While not EOF(InFile) do
  118.     begin 
  119.       Read(InFile, B); 
  120.       D1 := B div 16;
  121.       D2 := B mod 16; 
  122.       if EOF(InFile) then C := ')' else C := '/';
  123.       WriteOut('$' + HexTable[D1] + HexTable[D2] + C) 
  124.     end; 
  125.  
  126.   WriteOut(';');
  127.   WriteLnOut;
  128.  
  129.   Close(OutFile);
  130.   Close(InFile)
  131. end.
  132.